<script>on MouseDownput cd fld "Categories" of cd 1 into menuget HPopupMenu(Menu,checkedItem,bottom of me-1, left of me+1)if it is not 0 thenput (item 1 of line (item 1 of it) of menu) &" - "&¬item (item 2 of it) of line (item 1 of it) of menu into fld "Category"end ifend MouseDown</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>4</left>
<top>44</top>
<right>81</right>
<bottom>66</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Effect</name>
<script>on mouseDownput cd fld "Effect" of cd 1 into theListput PopUpMenu(theList,lineOffset(fld "Effect",theList),top of cd window + bottom of me - 1,¬left of cd window + left of the target + 1) into newLineif newLine = 0 then exit mouseDownput line newLine of theList into fld "Effect"end mouseDown</script>
<script>on mouseDownput cd fld "Frequency" of cd 1 into theListput PopUpMenu(theList,lineOffset(fld "Frequency",theList),top of cd window + bottom of me - 1,¬left of cd window + left of the target + 1) into newLineif newLine = 0 then exit mouseDownput line newLine of theList into fld "Frequency"end mouseDown</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>4</left>
<top>84</top>
<right>81</right>
<bottom>106</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Status</name>
<script>on mouseDownput cd fld "Status" of cd 1 into theListput PopUpMenu(theList,lineOffset(fld "Status",theList),top of cd window + bottom of me - 1,¬left of cd window + left of the target + 1) into newLineif newLine = 0 then exit mouseDownput line newLine of theList into fld "Status"end mouseDown</script>
<script>on mouseUpgo bg "Bugs"domenu "new Card"end mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>364</left>
<top>282</top>
<right>436</right>
<bottom>338</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>21449</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Menu Card</name>
<script>on mouseUpgo cd 1end mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>293</left>
<top>282</top>
<right>365</right>
<bottom>338</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>14953</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Back to Work</name>
<script>on mouseUpglobal gBugLastIDset lockmessages to truego gBugLastIDput "" into gBugLastIDif cantModify of this stack then send openCard to this cdend mouseUp</script>
</part>
<name>Bugs</name>
<script>on clearcdslockMsgsrepeat with n = 2 to the number of cds in this bgset cursor to busygo cd 2 of this bgdomenu delete cardend repeatend clearcdson domenu menuItemif menuItem = "New Card" thenif number of cds of this bg = 1 and fld "Category" = "" thennewCardexit domenuend ifend ifpass domenuend domenufunction LineOffset findText,findInif findText is not in findIn then return 0put return & findIn & return into findInreturn number of lines of (char 1 to offset(Return&findText&Return,¬findIn) of findIn)end LineOffseton newCardlock screenput "???" into fld "Category"put "Open" into fld "Status"put "???" into fld "Effect"put "???" into fld "Frequency"put cd fld "User" of cd 1 into userput user into fld "User"put cd fld "Bug Number" of cd 1 into bugNumadd 1 to cd fld "Bug Number" of cd 1repeat until length of cd fld "Bug Number" of cd 1 ≥ 3put 0 before cd fld "Bug Number" of cd 1end repeatput (char 1 of word 1 of User) & (char 1 of word 2 of user) & bugNum into fld "Bug Number"unlock screen with dissolve very fastend newCardon clearrepeat with z = 1 to number of fldsput "" into fld zend repeatend clear</script>